home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Turnbull China Bikeride
/
Turnbull China Bikeride - Disc 2.iso
/
STUTTGART
/
LANG
/
ASSEMBLER
/
EXTASM
/
Examples
/
MODULE
< prev
next >
Wrap
Text File
|
1993-09-29
|
1KB
|
51 lines
; ------------------------------------------------------------------------------------
; -
; - module shell © Tor Houghton
; -
; ------------------------------------------------------------------------------------
#type &FFA
#base 0
.module_header
dcd &00000000
dcd initialise ; risc os calls this first
dcd closedown ; risc os calls this when module is dying
dcd handler_service_call ; if a module service call is sent, do this
dcd string_title ; module title
dcd string_help ; module help string (e.g. *help 'module')
dcd &00000000
.string_title
dcb "Test",0
align
.string_help
dcb "Test ",9,"0.00 (28 Jul 1993) © 1993 Tor Houghton / ArcEmpire",0
align
.initialise
stmfd r13!,{r0-r12,r14}
; --- code here
ldmfd r13!,{r0-r12,pc}^
.closedown
stmfd r13!,{r0-r12,r14}
; --- code here
ldmfd r13!,{r0-r12,pc}^
.handler_service_call
cmp r1,#&27 ; has a reset occurred?
beq initialise ; yes, restart the module again
mov pc,r14